| CheckNotEquals method |
Applies to
TTestCase
Declaration
Procedure CheckNotEquals(expected, actual :integer; msg :string = '');
Implementation
procedure TTestCase.CheckNotEquals(expected, actual :integer; msg :string = '');
begin
if expected <> actual then
FailNotEquals(IntToStr(expected), IntToStr(actual), msg, CallerAddr);
End; |
|
|